`cmax` <-
function(cl,v,ka,tau,dose,...)css(cl,v,ka,tau,dose,tmax(cl,v,ka,tau))

